home *** CD-ROM | disk | FTP | other *** search
/ Publication 17 / Publication_17_19xx_Civitas_de_Side_B.d64 / sayyearfish v3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  48 lines
  1. 8 print"hommage to bejahfisch v3...":forg=1to1000:next
  2. 10 print"[147]"chr$(8):poke53280,14:poke53281,14
  3. 11 gosub100:gosub500:poke211,24:poke214,1:sys58732
  4. 12 print"what's that ???":forg=.to500:next:gosub200:gosub500:forg=.to500
  5. 13 next:poke211,16:poke214,3:sys58732:print"oh,no ! it really is..."
  6. 14 gosub300:gosub500:poke211,13:poke214,5:sys58732:forg=.to500:next
  7. 15 print"the allmighty bejahfisch !":gosub400:gosub500
  8. 16 forg=1to100:x=int(rnd(.)*10):y=int(rnd(.)*8):q=int(rnd(.)*13)
  9. 17 poke55296+y*40+x,q:next
  10. 18 forg=26to11step-1:poke211,g:poke214,1:sys58732:print" [157] [157] [157] [157] [157] [157] [157]
  11. 19 [129]q[178]1[164]30:[130]q,g:[129]g[178]4[164]1[169][171]1:[151]211,26:[151]214,g:[158]58732
  12. 20 [153]"             ":[129]q[178]1[164]30:[130]q,g:q(1)[178]1:q(2)[178]13:q(3)[178]15:q(4)[178]12
  13. 21 q(5)[178]11:q(6)[178]6:q(7)[178]14:[129]g[178]1[164]7:[151]646,q(g):[151]211,38:[151]214,5:[158]58732
  14. 22 [153]"!":[129]q[178]1[164]30:[130]q,g
  15. 23 a$[178]"bejahfisch ":[129]g[178]27[164]9[169][171]1:[151]211,g:[151]214,5:[158]58732:[153]""a$
  16. 24 [129]q[178]1[164]30:[130]q,g:[129]g[178]1[164]6:[151]646,q(g):[151]211,20:[151]214,5:[158]58732
  17. 25 [153]"rulez !":[129]q[178]1[164]30:[130]q,g:[129]g[178].[164]5000:[130]:[158]64738
  18. 99 [128]
  19. 100 a$(0)[178]"         "
  20. 101 a$(1)[178]"         "
  21. 102 a$(2)[178]"   (NULL)(NULL)    "
  22. 103 a$(3)[178]"         "
  23. 104 a$(4)[178]"         "
  24. 105 a$(5)[178]"         "
  25. 106 [142]
  26. 200 a$(0)[178]"         "
  27. 201 a$(1)[178]"    (NULL)    "
  28. 202 a$(2)[178]"  (NULL)(NULL)(NULL)(NULL)   "
  29. 203 a$(3)[178]"    (NULL)    "
  30. 204 a$(4)[178]"         "
  31. 205 a$(5)[178]"         "
  32. 206 [142]
  33. 300 a$(0)[178]"   (NULL)(NULL)    "
  34. 301 a$(1)[178]" (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  "
  35. 302 a$(2)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  "
  36. 303 a$(3)[178]" (NULL)(NULL)(NULL)(NULL)(NULL)   "
  37. 304 a$(4)[178]"   (NULL)(NULL)    "
  38. 305 a$(5)[178]"         "
  39. 306 [142]
  40. 400 a$(0)[178]"(NULL)  (NULL)(NULL)(NULL)   "
  41. 401 a$(1)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
  42. 402 a$(2)[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) "
  43. 403 a$(3)[178]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)  "
  44. 404 a$(4)[178]"(NULL)   (NULL)(NULL)   "
  45. 405 a$(5)[178]"         "
  46. 406 [142]
  47. 500 [153]"":[129]g[178].[164]5:[153]" "a$(g):[130]:[142]
  48.